#!/usr/bin/perl -w
unless ( -f $ARGV[1] ) {
print "$ARGV[1] is not a file \n";
}

link "$ARGV[1]", "$ARGV[0]";

